home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / wbb13.zip / SAMPLEF1.BAS < prev    next >
BASIC Source File  |  1993-06-04  |  1KB  |  71 lines

  1.  
  2.  
  3.    rem
  4.    rem This program demonstrates creating and using different fonts/sizes
  5.    rem
  6.  
  7.    rem windows size 10,2,70,19
  8.  
  9.    REM windows name "Font Demonstration"
  10.  
  11.  
  12.  
  13.    rem
  14.    rem Before going into graphics mode say we are handling paint.  If we
  15.    rem wait and do this after SCREEN command then a big bitmap would be
  16.    rem created (during SCREEN command) and then deleted (during ON PAINT).
  17.    rem
  18.    on paint gosub 1000
  19.    screen 1000
  20.    a=mouseon
  21.    mode=system(7)
  22.    position 10,50,550,450
  23.    line (0,0)-(550,450),7,bf
  24.  
  25.    color 1,7
  26.  
  27.    createfont 1,30,0,0,0,0,0,0,0,0,0,0,0,0,""
  28.    createfont 2,40,0,0,0,0,0,0,0,3,0,0,0,&h40,""
  29.    createfont 3,50,0,0,0,0,1,0,0,3,0,0,0,&h40,""
  30.    createfont 4,30,0,0,0,0,0,0,0,3,0,0,0,"COURIER"
  31.    createfont 5,40,0,0,0,0,0,1,0,3,0,0,0,"COURIER"
  32.    createfont 6,40,0,0,0,900,0,0,0,3,0,0,0,0,""
  33.  
  34.    selectfont 1
  35. '   FOR I=1 TO 1000:NEXT I
  36.    GOSUB DELAY
  37.    locate 10,40
  38.    print "Roses are red";
  39.    GOSUB DELAY
  40.    locate 70,40
  41.    selectfont 3
  42.    print "Violets are blue";
  43.    GOSUB DELAY
  44.    locate 140,40
  45.    SELECTFONT 4
  46.    print "Register this program";
  47.    GOSUB DELAY
  48.    locate 210,40
  49.    selectfont 5
  50.    print "And I'll love you.";
  51.    gosub delay
  52.    locate 280,40
  53.    selectfont 6
  54.    print "....Mark";
  55.  
  56. 100
  57.    b=mouseb
  58.    b=b and 1
  59.    if b=0 then goto 100
  60.    STOP
  61.  
  62.  
  63. DELAY:
  64.    FOR I=1 TO 2500:NEXT I
  65.    RETURN
  66.  
  67.  
  68. 1000
  69.    return
  70.  
  71.